home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / gnoom.com / GNDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-11-14  |  958 b   |  31 lines
  1. { Gnoom: UFP Image Editor --- Demo program }
  2.  
  3. uses Gnoom,Crt,Graph;
  4.  
  5. var Im : GnType;
  6.     N  : Byte;
  7.     i  : integer;
  8.     gd,gm : integer;
  9.  
  10. begin
  11.   Gd:=Ega;Gm:=EgaLo;InitGraph(gd,gm,'');
  12.   if GraphResult<>GrOk then Halt(1);
  13.   GnoomImage('monster',Im,N);
  14.   SetFillStyle(SolidFill,Brown);SetColor(White);
  15.   MoveTo(210,84);LineTo(200,90);LineTo(200,124);LineTo(210,130);
  16.   LineTo(430,130);LineTo(440,124);LineTo(440,90);LineTo(430,84);
  17.   LineTo(210,84);FloodFill(211,85,White);
  18.   SetColor(Yellow);SetTextStyle(DefaultFont,HorizDir,4);
  19.   OutTextXY(240,88,'GNOOM');SetColor(Red);
  20.   OutTextXY(238,86,'GNOOM');
  21.   SetColor(LightCyan);SetTextStyle(DefaultFont,HorizDir,1);
  22.   OutTextXY(253,120,'UFP Image Editor');
  23.   repeat
  24.   for i:=1 to N do
  25.     begin PutImage(288,50,Im[i]^,NormalPut);
  26.     delay(200); end;
  27.   for i:=N-1 downto 2 do
  28.     begin PutImage(288,50,Im[i]^,NormalPut);
  29.     delay(200); end;
  30.   until keypressed;
  31. CloseGraph; end.